
TRIGGER PROCEDURE FOR WRITE OF ar_MSTR OLD BUFFER OLD_AR_MSTR.

    {mfdeclre.i }
    define new shared work-table wf_old_ar_mstr like ar_mstr.

/* fdn 2009/06/29 Modify Record processing */
HK:
do:
    if can-find(first dt_mstr where dt_table = "ar_mstr" and dt_type = "SYNC") then
        run CreateSyncFlag(input "MOD", input recid(ar_mstr), input "ar_mstr").

    if not can-find ( first dt_mstr where dt_table = "ar_mstr" and dt_type = "MOD" ) then leave HK.
    
    if not can-find ( first wf_old_ar_mstr ) then do:
        create wf_old_ar_mstr.
        if recid(wf_old_ar_mstr)= -1 then .
    end.
    
    buffer-copy old_ar_mstr to wf_old_ar_mstr no-error.

    for each dt_mstr no-lock where dt_table = "ar_mstr" and dt_type = "MOD" :
    
        case dt_field :

            when "ar_type" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input wf_old_ar_mstr.ar_type, input ar_mstr.ar_type,
                    input recid(ar_mstr), input ar_mstr.ar_nbr, input "", input "", input "",
                    input "", input "", input "", input "").

            when "ar_nbr" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input wf_old_ar_mstr.ar_nbr, input ar_mstr.ar_nbr,
                    input recid(ar_mstr), input ar_mstr.ar_nbr, input "", input "", input "",
                    input "", input "", input "", input "").

            when "ar_cust" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input wf_old_ar_mstr.ar_cust, input ar_mstr.ar_cust,
                    input recid(ar_mstr), input ar_mstr.ar_nbr, input "", input "", input "",
                    input "", input "", input "", input "").

            when "ar_so_nbr" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input wf_old_ar_mstr.ar_so_nbr, input ar_mstr.ar_so_nbr,
                    input recid(ar_mstr), input ar_mstr.ar_nbr, input "", input "", input "",
                    input "", input "", input "", input "").

            when "ar_xcomm_pct[1]" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input string(wf_old_ar_mstr.ar_xcomm_pct[1]), input string(ar_mstr.ar_xcomm_pct[1]),
                    input recid(ar_mstr), input ar_mstr.ar_nbr, input "", input "", input "",
                    input "", input "", input "", input "").

            when "ar_effdate" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input string(wf_old_ar_mstr.ar_effdate), input string(ar_mstr.ar_effdate),
                    input recid(ar_mstr), input ar_mstr.ar_nbr, input "", input "", input "",
                    input "", input "", input "", input "").

            when "ar_date" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input string(wf_old_ar_mstr.ar_date), input string(ar_mstr.ar_date),
                    input recid(ar_mstr), input ar_mstr.ar_nbr, input "", input "", input "",
                    input "", input "", input "", input "").

            when "ar_cr_terms" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input wf_old_ar_mstr.ar_cr_terms, input ar_mstr.ar_cr_terms,
                    input recid(ar_mstr), input ar_mstr.ar_nbr, input "", input "", input "",
                    input "", input "", input "", input "").

            when "ar_po" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input wf_old_ar_mstr.ar_po, input ar_mstr.ar_po,
                    input recid(ar_mstr), input ar_mstr.ar_nbr, input "", input "", input "",
                    input "", input "", input "", input "").

            when "ar_amt" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input string(wf_old_ar_mstr.ar_amt), input string(ar_mstr.ar_amt),
                    input recid(ar_mstr), input ar_mstr.ar_nbr, input "", input "", input "",
                    input "", input "", input "", input "").

            when "ar_applied" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input string(wf_old_ar_mstr.ar_applied), input string(ar_mstr.ar_applied),
                    input recid(ar_mstr), input ar_mstr.ar_nbr, input "", input "", input "",
                    input "", input "", input "", input "").

            when "ar_disc_date" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input string(wf_old_ar_mstr.ar_disc_date), input string(ar_mstr.ar_disc_date),
                    input recid(ar_mstr), input ar_mstr.ar_nbr, input "", input "", input "",
                    input "", input "", input "", input "").

            when "ar_due_date" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input string(wf_old_ar_mstr.ar_due_date), input string(ar_mstr.ar_due_date),
                    input recid(ar_mstr), input ar_mstr.ar_nbr, input "", input "", input "",
                    input "", input "", input "", input "").

            when "ar_expt_date" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input string(wf_old_ar_mstr.ar_expt_date), input string(ar_mstr.ar_expt_date),
                    input recid(ar_mstr), input ar_mstr.ar_nbr, input "", input "", input "",
                    input "", input "", input "", input "").

            when "ar_acct" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input wf_old_ar_mstr.ar_acct, input ar_mstr.ar_acct,
                    input recid(ar_mstr), input ar_mstr.ar_nbr, input "", input "", input "",
                    input "", input "", input "", input "").

            when "ar_cc" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input wf_old_ar_mstr.ar_cc, input ar_mstr.ar_cc,
                    input recid(ar_mstr), input ar_mstr.ar_nbr, input "", input "", input "",
                    input "", input "", input "", input "").

            when "ar_sales_amt" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input string(wf_old_ar_mstr.ar_sales_amt), input string(ar_mstr.ar_sales_amt),
                    input recid(ar_mstr), input ar_mstr.ar_nbr, input "", input "", input "",
                    input "", input "", input "", input "").

            when "ar_xslspsn1" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input wf_old_ar_mstr.ar_xslspsn1, input ar_mstr.ar_xslspsn1,
                    input recid(ar_mstr), input ar_mstr.ar_nbr, input "", input "", input "",
                    input "", input "", input "", input "").

            when "ar_xslspsn2" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input wf_old_ar_mstr.ar_xslspsn2, input ar_mstr.ar_xslspsn2,
                    input recid(ar_mstr), input ar_mstr.ar_nbr, input "", input "", input "",
                    input "", input "", input "", input "").

            when "ar_paid_date" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input string(wf_old_ar_mstr.ar_paid_date), input string(ar_mstr.ar_paid_date),
                    input recid(ar_mstr), input ar_mstr.ar_nbr, input "", input "", input "",
                    input "", input "", input "", input "").

            when "ar_batch" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input wf_old_ar_mstr.ar_batch, input ar_mstr.ar_batch,
                    input recid(ar_mstr), input ar_mstr.ar_nbr, input "", input "", input "",
                    input "", input "", input "", input "").

            when "ar_disc_acct" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input wf_old_ar_mstr.ar_disc_acct, input ar_mstr.ar_disc_acct,
                    input recid(ar_mstr), input ar_mstr.ar_nbr, input "", input "", input "",
                    input "", input "", input "", input "").

            when "ar_disc_cc" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input wf_old_ar_mstr.ar_disc_cc, input ar_mstr.ar_disc_cc,
                    input recid(ar_mstr), input ar_mstr.ar_nbr, input "", input "", input "",
                    input "", input "", input "", input "").

            when "ar_ship" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input wf_old_ar_mstr.ar_ship, input ar_mstr.ar_ship,
                    input recid(ar_mstr), input ar_mstr.ar_nbr, input "", input "", input "",
                    input "", input "", input "", input "").

            when "ar_open" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input string(wf_old_ar_mstr.ar_open), input string(ar_mstr.ar_open),
                    input recid(ar_mstr), input ar_mstr.ar_nbr, input "", input "", input "",
                    input "", input "", input "", input "").

            when "ar_contested" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input string(wf_old_ar_mstr.ar_contested), input string(ar_mstr.ar_contested),
                    input recid(ar_mstr), input ar_mstr.ar_nbr, input "", input "", input "",
                    input "", input "", input "", input "").

            when "ar_check" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input wf_old_ar_mstr.ar_check, input ar_mstr.ar_check,
                    input recid(ar_mstr), input ar_mstr.ar_nbr, input "", input "", input "",
                    input "", input "", input "", input "").

            when "ar_cmtindx" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input string(wf_old_ar_mstr.ar_cmtindx), input string(ar_mstr.ar_cmtindx),
                    input recid(ar_mstr), input ar_mstr.ar_nbr, input "", input "", input "",
                    input "", input "", input "", input "").

            when "ar_user1" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input wf_old_ar_mstr.ar_user1, input ar_mstr.ar_user1,
                    input recid(ar_mstr), input ar_mstr.ar_nbr, input "", input "", input "",
                    input "", input "", input "", input "").

            when "ar_user2" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input wf_old_ar_mstr.ar_user2, input ar_mstr.ar_user2,
                    input recid(ar_mstr), input ar_mstr.ar_nbr, input "", input "", input "",
                    input "", input "", input "", input "").

            when "ar_curr" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input wf_old_ar_mstr.ar_curr, input ar_mstr.ar_curr,
                    input recid(ar_mstr), input ar_mstr.ar_nbr, input "", input "", input "",
                    input "", input "", input "", input "").

            when "ar_ex_rate" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input string(wf_old_ar_mstr.ar_ex_rate), input string(ar_mstr.ar_ex_rate),
                    input recid(ar_mstr), input ar_mstr.ar_nbr, input "", input "", input "",
                    input "", input "", input "", input "").

            when "ar_var_acct" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input wf_old_ar_mstr.ar_var_acct, input ar_mstr.ar_var_acct,
                    input recid(ar_mstr), input ar_mstr.ar_nbr, input "", input "", input "",
                    input "", input "", input "", input "").

            when "ar_var_cc" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input wf_old_ar_mstr.ar_var_cc, input ar_mstr.ar_var_cc,
                    input recid(ar_mstr), input ar_mstr.ar_nbr, input "", input "", input "",
                    input "", input "", input "", input "").

            when "ar_bank" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input wf_old_ar_mstr.ar_bank, input ar_mstr.ar_bank,
                    input recid(ar_mstr), input ar_mstr.ar_nbr, input "", input "", input "",
                    input "", input "", input "", input "").

            when "ar_mrgn_amt" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input string(wf_old_ar_mstr.ar_mrgn_amt), input string(ar_mstr.ar_mrgn_amt),
                    input recid(ar_mstr), input ar_mstr.ar_nbr, input "", input "", input "",
                    input "", input "", input "", input "").

            when "ar_entity" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input wf_old_ar_mstr.ar_entity, input ar_mstr.ar_entity,
                    input recid(ar_mstr), input ar_mstr.ar_nbr, input "", input "", input "",
                    input "", input "", input "", input "").

            when "ar_ent_ex" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input string(wf_old_ar_mstr.ar_ent_ex), input string(ar_mstr.ar_ent_ex),
                    input recid(ar_mstr), input ar_mstr.ar_nbr, input "", input "", input "",
                    input "", input "", input "", input "").

            when "ar__chr01" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input wf_old_ar_mstr.ar__chr01, input ar_mstr.ar__chr01,
                    input recid(ar_mstr), input ar_mstr.ar_nbr, input "", input "", input "",
                    input "", input "", input "", input "").

            when "ar__chr02" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input wf_old_ar_mstr.ar__chr02, input ar_mstr.ar__chr02,
                    input recid(ar_mstr), input ar_mstr.ar_nbr, input "", input "", input "",
                    input "", input "", input "", input "").

            when "ar__chr03" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input wf_old_ar_mstr.ar__chr03, input ar_mstr.ar__chr03,
                    input recid(ar_mstr), input ar_mstr.ar_nbr, input "", input "", input "",
                    input "", input "", input "", input "").

            when "ar__chr04" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input wf_old_ar_mstr.ar__chr04, input ar_mstr.ar__chr04,
                    input recid(ar_mstr), input ar_mstr.ar_nbr, input "", input "", input "",
                    input "", input "", input "", input "").

            when "ar__chr05" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input wf_old_ar_mstr.ar__chr05, input ar_mstr.ar__chr05,
                    input recid(ar_mstr), input ar_mstr.ar_nbr, input "", input "", input "",
                    input "", input "", input "", input "").

            when "ar__dte01" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input string(wf_old_ar_mstr.ar__dte01), input string(ar_mstr.ar__dte01),
                    input recid(ar_mstr), input ar_mstr.ar_nbr, input "", input "", input "",
                    input "", input "", input "", input "").

            when "ar__dte02" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input string(wf_old_ar_mstr.ar__dte02), input string(ar_mstr.ar__dte02),
                    input recid(ar_mstr), input ar_mstr.ar_nbr, input "", input "", input "",
                    input "", input "", input "", input "").

            when "ar__dec01" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input string(wf_old_ar_mstr.ar__dec01), input string(ar_mstr.ar__dec01),
                    input recid(ar_mstr), input ar_mstr.ar_nbr, input "", input "", input "",
                    input "", input "", input "", input "").

            when "ar__dec02" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input string(wf_old_ar_mstr.ar__dec02), input string(ar_mstr.ar__dec02),
                    input recid(ar_mstr), input ar_mstr.ar_nbr, input "", input "", input "",
                    input "", input "", input "", input "").

            when "ar__log01" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input string(wf_old_ar_mstr.ar__log01), input string(ar_mstr.ar__log01),
                    input recid(ar_mstr), input ar_mstr.ar_nbr, input "", input "", input "",
                    input "", input "", input "", input "").

            when "ar_draft" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input string(wf_old_ar_mstr.ar_draft), input string(ar_mstr.ar_draft),
                    input recid(ar_mstr), input ar_mstr.ar_nbr, input "", input "", input "",
                    input "", input "", input "", input "").

            when "ar_ldue_date" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input string(wf_old_ar_mstr.ar_ldue_date), input string(ar_mstr.ar_ldue_date),
                    input recid(ar_mstr), input ar_mstr.ar_nbr, input "", input "", input "",
                    input "", input "", input "", input "").

            when "ar_print" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input string(wf_old_ar_mstr.ar_print), input string(ar_mstr.ar_print),
                    input recid(ar_mstr), input ar_mstr.ar_nbr, input "", input "", input "",
                    input "", input "", input "", input "").

            when "ar_inv_cr" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input wf_old_ar_mstr.ar_inv_cr, input ar_mstr.ar_inv_cr,
                    input recid(ar_mstr), input ar_mstr.ar_nbr, input "", input "", input "",
                    input "", input "", input "", input "").

            when "ar_fr_terms" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input wf_old_ar_mstr.ar_fr_terms, input ar_mstr.ar_fr_terms,
                    input recid(ar_mstr), input ar_mstr.ar_nbr, input "", input "", input "",
                    input "", input "", input "", input "").

            when "ar_comm_pct[1]" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input string(wf_old_ar_mstr.ar_comm_pct[1]), input string(ar_mstr.ar_comm_pct[1]),
                    input recid(ar_mstr), input ar_mstr.ar_nbr, input "", input "", input "",
                    input "", input "", input "", input "").

            when "ar_slspsn[1]" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input wf_old_ar_mstr.ar_slspsn[1], input ar_mstr.ar_slspsn[1],
                    input recid(ar_mstr), input ar_mstr.ar_nbr, input "", input "", input "",
                    input "", input "", input "", input "").

            when "ar_bill" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input wf_old_ar_mstr.ar_bill, input ar_mstr.ar_bill,
                    input recid(ar_mstr), input ar_mstr.ar_nbr, input "", input "", input "",
                    input "", input "", input "", input "").

            when "ar_tax_date" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input string(wf_old_ar_mstr.ar_tax_date), input string(ar_mstr.ar_tax_date),
                    input recid(ar_mstr), input ar_mstr.ar_nbr, input "", input "", input "",
                    input "", input "", input "", input "").

            when "ar_tax_env" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input wf_old_ar_mstr.ar_tax_env, input ar_mstr.ar_tax_env,
                    input recid(ar_mstr), input ar_mstr.ar_nbr, input "", input "", input "",
                    input "", input "", input "", input "").

            when "ar__qad01" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input wf_old_ar_mstr.ar__qad01, input ar_mstr.ar__qad01,
                    input recid(ar_mstr), input ar_mstr.ar_nbr, input "", input "", input "",
                    input "", input "", input "", input "").

            when "ar__qad02" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input wf_old_ar_mstr.ar__qad02, input ar_mstr.ar__qad02,
                    input recid(ar_mstr), input ar_mstr.ar_nbr, input "", input "", input "",
                    input "", input "", input "", input "").

            when "ar__qad03" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input string(wf_old_ar_mstr.ar__qad03), input string(ar_mstr.ar__qad03),
                    input recid(ar_mstr), input ar_mstr.ar_nbr, input "", input "", input "",
                    input "", input "", input "", input "").

            when "ar_drft_sel" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input string(wf_old_ar_mstr.ar_drft_sel), input string(ar_mstr.ar_drft_sel),
                    input recid(ar_mstr), input ar_mstr.ar_nbr, input "", input "", input "",
                    input "", input "", input "", input "").

            when "ar_coll_mthd" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input wf_old_ar_mstr.ar_coll_mthd, input ar_mstr.ar_coll_mthd,
                    input recid(ar_mstr), input ar_mstr.ar_nbr, input "", input "", input "",
                    input "", input "", input "", input "").

            when "ar_amt_chg" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input string(wf_old_ar_mstr.ar_amt_chg), input string(ar_mstr.ar_amt_chg),
                    input recid(ar_mstr), input ar_mstr.ar_nbr, input "", input "", input "",
                    input "", input "", input "", input "").

            when "ar_disc_chg" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input string(wf_old_ar_mstr.ar_disc_chg), input string(ar_mstr.ar_disc_chg),
                    input recid(ar_mstr), input ar_mstr.ar_nbr, input "", input "", input "",
                    input "", input "", input "", input "").

            when "ar_base_amt" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input string(wf_old_ar_mstr.ar_base_amt), input string(ar_mstr.ar_base_amt),
                    input recid(ar_mstr), input ar_mstr.ar_nbr, input "", input "", input "",
                    input "", input "", input "", input "").

            when "ar_fsm_type" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input wf_old_ar_mstr.ar_fsm_type, input ar_mstr.ar_fsm_type,
                    input recid(ar_mstr), input ar_mstr.ar_nbr, input "", input "", input "",
                    input "", input "", input "", input "").

            when "ar_comm_amt[1]" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input string(wf_old_ar_mstr.ar_comm_amt[1]), input string(ar_mstr.ar_comm_amt[1]),
                    input recid(ar_mstr), input ar_mstr.ar_nbr, input "", input "", input "",
                    input "", input "", input "", input "").

            when "ar_dy_code" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input wf_old_ar_mstr.ar_dy_code, input ar_mstr.ar_dy_code,
                    input recid(ar_mstr), input ar_mstr.ar_nbr, input "", input "", input "",
                    input "", input "", input "", input "").

            when "ar_dun_level" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input string(wf_old_ar_mstr.ar_dun_level), input string(ar_mstr.ar_dun_level),
                    input recid(ar_mstr), input ar_mstr.ar_nbr, input "", input "", input "",
                    input "", input "", input "", input "").

            when "ar_ex_rate2" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input string(wf_old_ar_mstr.ar_ex_rate2), input string(ar_mstr.ar_ex_rate2),
                    input recid(ar_mstr), input ar_mstr.ar_nbr, input "", input "", input "",
                    input "", input "", input "", input "").

            when "ar_ex_ratetype" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input wf_old_ar_mstr.ar_ex_ratetype, input ar_mstr.ar_ex_ratetype,
                    input recid(ar_mstr), input ar_mstr.ar_nbr, input "", input "", input "",
                    input "", input "", input "", input "").

            when "ar_base_amt_chg" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input string(wf_old_ar_mstr.ar_base_amt_chg), input string(ar_mstr.ar_base_amt_chg),
                    input recid(ar_mstr), input ar_mstr.ar_nbr, input "", input "", input "",
                    input "", input "", input "", input "").

            when "ar_base_applied" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input string(wf_old_ar_mstr.ar_base_applied), input string(ar_mstr.ar_base_applied),
                    input recid(ar_mstr), input ar_mstr.ar_nbr, input "", input "", input "",
                    input "", input "", input "", input "").

            when "ar_base_comm_amt[1]" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input string(wf_old_ar_mstr.ar_base_comm_amt[1]), input string(ar_mstr.ar_base_comm_amt[1]),
                    input recid(ar_mstr), input ar_mstr.ar_nbr, input "", input "", input "",
                    input "", input "", input "", input "").

            when "ar_exru_seq" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input string(wf_old_ar_mstr.ar_exru_seq), input string(ar_mstr.ar_exru_seq),
                    input recid(ar_mstr), input ar_mstr.ar_nbr, input "", input "", input "",
                    input "", input "", input "", input "").

            when "ar_dd_curr" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input wf_old_ar_mstr.ar_dd_curr, input ar_mstr.ar_dd_curr,
                    input recid(ar_mstr), input ar_mstr.ar_nbr, input "", input "", input "",
                    input "", input "", input "", input "").

            when "ar_dd_ex_rate" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input string(wf_old_ar_mstr.ar_dd_ex_rate), input string(ar_mstr.ar_dd_ex_rate),
                    input recid(ar_mstr), input ar_mstr.ar_nbr, input "", input "", input "",
                    input "", input "", input "", input "").

            when "ar_dd_ex_rate2" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input string(wf_old_ar_mstr.ar_dd_ex_rate2), input string(ar_mstr.ar_dd_ex_rate2),
                    input recid(ar_mstr), input ar_mstr.ar_nbr, input "", input "", input "",
                    input "", input "", input "", input "").

            when "ar_dd_exru_seq" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input string(wf_old_ar_mstr.ar_dd_exru_seq), input string(ar_mstr.ar_dd_exru_seq),
                    input recid(ar_mstr), input ar_mstr.ar_nbr, input "", input "", input "",
                    input "", input "", input "", input "").

            when "ar_app_owner" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input wf_old_ar_mstr.ar_app_owner, input ar_mstr.ar_app_owner,
                    input recid(ar_mstr), input ar_mstr.ar_nbr, input "", input "", input "",
                    input "", input "", input "", input "").

            when "ar_sub" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input wf_old_ar_mstr.ar_sub, input ar_mstr.ar_sub,
                    input recid(ar_mstr), input ar_mstr.ar_nbr, input "", input "", input "",
                    input "", input "", input "", input "").

            when "ar_disc_sub" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input wf_old_ar_mstr.ar_disc_sub, input ar_mstr.ar_disc_sub,
                    input recid(ar_mstr), input ar_mstr.ar_nbr, input "", input "", input "",
                    input "", input "", input "", input "").

            when "ar_var_sub" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input wf_old_ar_mstr.ar_var_sub, input ar_mstr.ar_var_sub,
                    input recid(ar_mstr), input ar_mstr.ar_nbr, input "", input "", input "",
                    input "", input "", input "", input "").

            when "ar_prepayment" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input string(wf_old_ar_mstr.ar_prepayment), input string(ar_mstr.ar_prepayment),
                    input recid(ar_mstr), input ar_mstr.ar_nbr, input "", input "", input "",
                    input "", input "", input "", input "").

            when "ar_shipfrom" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input wf_old_ar_mstr.ar_shipfrom, input ar_mstr.ar_shipfrom,
                    input recid(ar_mstr), input ar_mstr.ar_nbr, input "", input "", input "",
                    input "", input "", input "", input "").

            when "ar_customer_bank" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input wf_old_ar_mstr.ar_customer_bank, input ar_mstr.ar_customer_bank,
                    input recid(ar_mstr), input ar_mstr.ar_nbr, input "", input "", input "",
                    input "", input "", input "", input "").

            when "ar_draft_disc_date" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input string(wf_old_ar_mstr.ar_draft_disc_date), input string(ar_mstr.ar_draft_disc_date),
                    input recid(ar_mstr), input ar_mstr.ar_nbr, input "", input "", input "",
                    input "", input "", input "", input "").

            when "ar_recon_date" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input string(wf_old_ar_mstr.ar_recon_date), input string(ar_mstr.ar_recon_date),
                    input recid(ar_mstr), input ar_mstr.ar_nbr, input "", input "", input "",
                    input "", input "", input "", input "").

            when "ar_status" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input wf_old_ar_mstr.ar_status, input ar_mstr.ar_status,
                    input recid(ar_mstr), input ar_mstr.ar_nbr, input "", input "", input "",
                    input "", input "", input "", input "").

            when "ar_customer_initiated" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input string(wf_old_ar_mstr.ar_customer_initiated), input string(ar_mstr.ar_customer_initiated),
                    input recid(ar_mstr), input ar_mstr.ar_nbr, input "", input "", input "",
                    input "", input "", input "", input "").

            when "ar_draft_submit_date" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input string(wf_old_ar_mstr.ar_draft_submit_date), input string(ar_mstr.ar_draft_submit_date),
                    input recid(ar_mstr), input ar_mstr.ar_nbr, input "", input "", input "",
                    input "", input "", input "", input "").

            when "ar_pay_method" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input wf_old_ar_mstr.ar_pay_method, input ar_mstr.ar_pay_method,
                    input recid(ar_mstr), input ar_mstr.ar_nbr, input "", input "", input "",
                    input "", input "", input "", input "").

            when "ar_void_date" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input string(wf_old_ar_mstr.ar_void_date), input string(ar_mstr.ar_void_date),
                    input recid(ar_mstr), input ar_mstr.ar_nbr, input "", input "", input "",
                    input "", input "", input "", input "").

        end.

    end.
end.

{hkdttrans.i}
